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DECUS Program Library Write-up 


DECUS NO. 8-464b 


MTA 


ABSTRACT: 


R TWO PAGE HANDLER WHICH ALLOWS THE USE OF A ? OR 9 TRACK TVPE 
TR82 INCREMENTAL MAGNETIC TAPE IN A MANNER SIMILAR TO DECTRPE. TAPE 
MOTION HAS BEEN REDUCED TO A MINIMUM TO INCREASE SPEED. EACH BLOCK OF 
DATA <256 WORDS) IS CONTAINED IN ONE TAPE BLOCK ALONG WITH PARITY BITS 
AND BLOCK NUMBER IDENTIFICATION. PARITY CHECKING IS DONE TWICE FOR 
EVERY WORD READ AND STATUS TESTS ARE PERFORMED BEFORE AND AFTER EACH 
READ, WRITE, AND POSITIONING OPERATION. IN CASE OF PARITY ERROR, THREE 
ADDITIONAL READS ARE ATTEMPTED BEFORE A FATAL ERROR EXIT IS TAKEN. 

UP TO 204? BLOCKS ARE AVAILABLE, DEPENDING ON THE LENGTH OF TAPE. ALL 

INTERRUPT FLAGS ARE LEFT DOWN AT EXIT. TAPE MUST BE FORMATTED 
PRIOR TO USE WITH "MTAMRK" AND MUST BE INITIALIZED AT EACH LOADING 
WITH "INIT". UNLOADING IS ACCOMPLISHED BY "UNLOAD". 

PROGRAM DESCRIPTION: 


1. TAPE FORMAT 

THE TAPE FORMATTER "MTAMRK" WRITES 204? BLOCKS ON ? OR 9 TRACK 
TAPE. EACH BLOCK CONSISTS OF THREE SECTIONS; 

<A> 1000(8) 6 BIT BYTES OF DATA 

<B) 300(3) UPPER 6 BITS OF BLOCK # 

<C) 300(3) LOWER 6 BITS OF BLOCK # 

BLOCKS ARE SEPARATED BY INTER-RECORD GAPS. DATA IS STORED AS THE UP¬ 
PER AND LOWER 6 BITS OF EACH 12 BIT WORD SEQUENTIALLY, I. E. BYTE #0 = 

UPPER 6 BITS OF WORD #0, BYTE #1 = LOWER 6 BITS OF WORD #0, BYTE #2 = 

UPPER 6 BITS OF WORD #1 AND SO ON. 

2. POSITIONING ALGORITHM 

UPON LOADING AND STARTING THE MTA HANDLER, ONE BLOCK IS READ 
AND THE 1100TH AND 1400TH BYTES ARE ASSEMBLED TO FORM A BLOCK #. THIS 
IS A ONE TIME OPERATION. WHILE MTA REMAINS IN CORE, ALL SUBSEQUENT 
REQUESTS UTILIZE THE LAST POSITION AS A BASE FOR BLOCK RETRIEVAL CALCU¬ 
LATIONS. AFTER DETERMINING THE DIRECTION AND NUMBER OF BLOCKS iN ERROR, 
READ FORWARD OR BACKSPACE COMMANDS ARE ISSUED, WHILE COUNTING THE IRQ 
GAPS PASSED UNTIL THE ERROR IS ZERO. 

THE BLOCK NUMBER READ AT 'FIRST RUN' TIME IS THE NEGATIVE NUMBER OF THE 

FOLLOWING BLOCK; I. E. IF THE TAPE IS AT REST AT THE BEGINNING OF BLOCK 

#5, THEN THE IDENTIFICATION NUMBER READ WILL BE -6 (??+?2,???2), AND 
WILL COME TO REST AT THE BEGINNING OF BLOCK #6. 
















AFTER DETERMINING THE BLOCK # ERROR, 6 POSSIBILITIES EXIST. 


<A> ZERO ERROR 

<B> NEGATIVE ERROR CDESIRED BLOCK IS BEHIND) 

<C> POSITIVE ERROR <DESIRED BLOCK IS AHEAD) 

EACH IS POSSIBLE FOR EITHER A READ OR WRITE REQUEST, A TOTAL OF 6. 

IN ALL CASES EXCEPT ONE, IT IS ONLV NECESSARV TO POSITION THE TAPE TO 
THE BEGINNING OF THE BLOCK DESIRED EITHER FROM AHEAD OR BEHIND. IN ONE 
CASE, HOWEVER, A PROBLEM EXISTS. A WRITE REQUEST WILL RESULT IN THIS 
SEQUENCE OF OPERATIONS. 


<A) POSITION TAPE 

<B) CHANGE TO WRITE MODE W 

<C> WRITE 

THE MODE CHANGE COMMAND CAUSES A CERTAIN TAPE MOVEMENT TO TAKE PLACE 
ALONG WITH ERASING OF THE TAPE, THUS RESULTING IN AN INCREASE OF THE 
PHYSICAL LENGTH OF THE GAP IF THE MOVEMENT PASSES THE ORIGINRL 
GAP BOUNDARY. IF THE GAP WAS REACHED BY FORWARD MOTION, THEN THE 
AMOUNT OF GAP •'STRETCHING" IS CONTROLLED, AND NEVER EXCEEDS A FIXED 
LENGTH. IF THE GAP WAS REACHED BY A BACKSPACE MOTION, HOWEVER, THEN 
EACH SEQUENCE OF THESE MOVEMENTS; 

(A) BACKSPACE 

<B) SET UP TO WRITE 

<C) WRITE 

<D> READ FORWARD TO NEXT GAP 

WILL RESULT IN ADDITIONAL STRETCHING OF THE GAP UNTIL THE DATA BLOCK 
DISAPPEARS. IN ORDER TO AVOID THIS PROBLEM, IF A NEGATIVE ERROR IS 
INDICATED ALONG WITH A WRITE REQUEST, THEN THE TAPE IS POSITIONED 
BACKWARD ONE EXTRA BLOCK, THEN FORWARD ONE BLOCK. THIS INSURES W 

THAT ALL BLOCKS TO BE WRITTEN INTO WILL BE APPROACHED FROM THE LOW 
SIDE, THUS SETTING AN ABSOLUTE LIMIT ON THE RESULTING GRP LENGTH. 

AFTER A PERIOD OF USE, GRP LENGTHS WILL INCREASE SOMEWHAT 
AND THE BLOCK IDENTIFICATION NUMBER WILL BE READ FROM A LOCATION 
HIGHER THAN THE ORIGINAL SPECIFICATION. THIS IS THE REASON FOR WRITING 
SUCH A LARGE NUMBER OF BLOCK IDENTIFICATION RECORDS. 

3. ERROR DETECTION AND RECOVERY 

THE STATUS REGISTER AND TELETYPE BUFFER ARE TESTED BEFORE AND 
AFTER EACH READ, WRITE AND POSITIONING OPERATION. ~C FROM THE TELETYPE 
CAUSES AN ABORT TO THE KEYBOARD MONITOR, BAD STATUS CAUSES A FATAL ERROR 
RETURN. EACH 6 BIT BYTE IS TESTED FOR PROPER PARITY WHEN READ. IF AN 
ERROR IS FOUND, THAT BLOCK IS BACKSPACED AND REREAD A MAXIMUM OF THREE 
TIMES BEFORE THE FATAL ERROR EXIT IS TAKEN. THE ACCUMULATOR IS CLEARED 
UPON ENTRY AND IS CLEAR AT EXITS. SPECIFYING A NEGATIVE BLOCK # RESULTS 
IN A FATAL ERROR EXIT. SPECIFYING ZERO PAGES IS THE EQUIVALENT OF 48(8). 
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4. READ AND WRITE METHOD 


THE READING AND WRITING TECHNIQUES ARE STRAIGHTFORWARD ACCORDING 
TO THE TAPE FORMAT DESCRIBED. THE WORD COUNT IN A WRITE OPERATION IS 
INCREASED BV THREE TO PREVENT BAD DATA AND/OR PARITV ERRORS DURING 
SUBSEQUENT READS. THIS HAPPENS BECAUSE OF A SMALL AMOUNT OF VARIATION 
IN THE ABSOLUTE TAPE POSITION FROM ONE WRITE OPERATION TO ANOTHER. 

A ONE PAGE OR ODD PAGE WRITE REQUEST CAUSES AN EXTRA PAGE TO BE WRIT¬ 
TEN. THIS PREVENTS ERRORS WHEN A LATER READ OF THAT BLOCK IS EVEN. 
INTERRUPT FLAGS ARE CLEARED BEFORE EVERV EXIT TO PREVENT INTERFERENCE 
TO PROGRAMS USING INTERRUPTS. 


RESTRICTIONS: 


NONE. 

OPERATING INSTRUCTIONS: 


1. USING 0S3 "BUILD", LOAD AND INSERT MTA AS AN ACTIVE HANDLER. 

2. GET "PIP" AND CHANGE LOCATION 13620 TO 4051. 

2 . LOAD AND RUN "MTAMRK". 

4. LOAD, SAVE AND RUN "INIT" 

5. LOAD AND SAVE "UNLOAD". 

LOADING AND UNLOADING TAPE: 


1. TO LOAD TAPE, THREAD THE TAPE PROPERLV, THEN PRESS ' LOAD FORWARD" 


ONCE MOMENTARILV TO TENSION THE TAPE. THEN RIJN "INIT". 

2 TO UNLOAD TAPE, RUN "UNLOAD". THE DRIVE IS LEFT IN MANUAL MODE. 
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'WRIT FOR GRP TO COME BV 
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FELD 0330 
FIJNC 0357 
FWD 0320 
GAP 0527 
GLOP 0267 
GRIP 0533 
GWATE 0307 
IWSF 0466 
LOCATE 0367 
LOCO 0370 
LWSF 0476 
MOVE 0306 
riTA 0200 
flTCDIF 0230 
riTRL 0271 
MTSTOF’ 0340 
M03 0564 
M203 0365 
M4010 0366 
NORMAL 0332 
N70 0363 
N77 0570 
OFFSET 0364 
OUT 0324 
PAD 0206 
RAD 0245 
RANT 0504 
RCNT 0560 
RCNTR 0557 
READ 0413 
REDE 0421 
REDMOR 0447 
REED 0432 
RITE 0506 
ROUT 0523 
STAT 0351 
STATUS 0342 
TEMP 0562 
TEMPI 0362 
TRV 0417 
USTOP 0201 
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AGAIN 

BAD 

BCNT 

BFLAG 

CRN 

DFI 

DRN 

ERRCNT 

ERRDIF 

ERROR 

ERROUT 

ESAV1 

E5AV2 

EXIT 

FELD 

FUNC 

FMD 

GAP 

GLOP 

GRIP 

GWATE 

IWSF 

LOCATE 

LOCO 

LWSF 

MOVE 

MTA 

MTCDIF 

MTRL 

MTSTOP 

M03 

M203 

M 4 010 

NORMAL 

N70 

N77 

OFFSET 

OUT 

PAD 

RAD 

RANT 

RCNT 

RCNTR 

READ 

REDE 

REDMOR 

REED 

RITE 

ROUT 

STAT 

STATUS 

TEMP 

TEMPI 

TRV 

TR02 

USTOP 

WAD 

WAR 


146 

190# 212 

240 


68# 

69 71 



149 

228 233 

258# 


32 

86 96 

101 

105 

67 

77 112 

133# 


36 

113# 



47 

78 110 

132# 


151 

216 222 

243 

256# 

250 

260# 



164 

173 237# 

238 


46 

63 74 

123# 

260 

155 

210 224 

244 

261# 

157 

246 262# 



144# 

229 251 

252 

253 

37 

108# 



33 

35 107 

131# 


83 

100# 



130 

184 223 

230# 

236 

75# 

76 



234# 

235 



91# 

92 



137# 

198 



52 

59 133# 



70 

140# 



205# 

206 



55 

90# 94 

102 

103 

14 

20# 30 

33 

39 

23 

44# 



54 

77# 



24 

116# 130 



150 

259# 



122 

137# 



126 

138# 



110# 

260 



34 

135# 



195 

201 263# 



27 

136# 



31 

98 104# 



25 

26# 28 

29 

49 

57# 

58 60 



208 

211# 



132 

211 232 

255# 


231 

254# 



154# 

185 



160# 

161 133 



179 

132# 



169# 

170 



213# 

217 



131 

226# 



120 

125# 



51 

106 114 

118# 

128 

148 

156 178 

207 

247 

40 

43 85 

88 

93 

153# 

249 
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21# 

89 124 



136 

143# 154 

168 

174 

245 




148# 

186 




141# 


243 

41 42 43 115 117 

50 109 136 

257# 

100 134# 

175 176 191 200 203 
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WfiRF 

WITE 

WRIT 


153 188# 139 219 

214# 215 

153 136# 225 
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/IN IT: SMART TAPE INITIATOR/ 


PAL8-V7 12/12/73 PAGE 1 


1 



/IN IT: 

SMART 

TAPE INITIATOR/ 

2 


6701 


I RS = 

6701 



3 


6702 


I SR = 

6702 



4 


6704 


IM C = 

6704 



5 


6705 


I GS = 

6705 



6 


6707 


I RD = 

6707 



7 



FI XTAO 





8 

00200 

7600 

QS8* 

7608 



/CLA 

9 

00201 

6702 


ISR 



/READ TAPE STATUS 

10 

00202 

7006 


RTL 



/TNT INTO SIGN 

11 

00203 

7710 


SPA 

CLA 


/TAPE TENSIONED? 

12 

00204 

5240 


JMP 


ERROR 

/NO* CAN'T DO ANVTHING 

13 

00205 

6702 


ISR 




14 

00206 

7710 


SPA 

CLA 


/READS'? 

15 

00207 

5223 


JMP 


LOCO 

/YES* PROCEED 

16 

00210 

7130 


CLL 

CML 

RAR 

/ 4 0 0 0 

17 

00211 

6704 


IMC 



/START LORD FORWARD 

18 

00212 

6705 

LOWAIT* 

IGS 



/WAIT FOR GAP FLAG 

19 

00213 

5212 


JMP 


LOWAIT 


20 

00214 

7300 


CLA 

CLL 



21 

00215 

6702 


ISR 



/GET STATUS WORD 

22 

00216 

7006 


RTL; 

RTL; 

RTL 

/BOT INTO LINK 

23 

00217 

7006 






24 

00220 

7006 






25 

00221 

7620 


SNL 

CLA 


/IS IT UP? 

26 

00222 

5240 


JMP 


ERROR 

/NO* SOMETHINGS FUNNY 

27 

00223 

7133 

LOCO* 

CLL 

CML 

IAC RTR 

/ 6 0 0 0 

28 

00224 

6704 

GOGO* 

IMC 



/READ 

29 

00225 

6705 

GOWAIT* 

IGS 



/WRIT FOR GAP 

30 

00226 

5225 


JMP 


GOWAIT 


31 

00227 

2245 


IS2 


M40 

/COUNT 32 GAPS 

32 

00230 

5224 


JMP 


GOGO 

/REPEAT 

33 

00231 

7300 


CLA 

CLL 


/DONE 

34 

00232 

6702 


ISR 



/STATUS AGAIN 

35 

00233 

1246 


TAD 


MSTAT 

/COMPARE 

36 

00234 

7640 


SZA 

CLA 


/DOES IT MATCH? 

37 

00235 

5240 


JMP 


ERROR 

/NO* QUIT 

38 

00236 

7300 


CLA 

CLL 


/YES* PROCEED 

39 

00237 

5600 


JMP 

I 

0S8 


40 

00240 

6212 

ERROR* 

GIF 

10 


/TELL OSS ABOUT ERROR 

41 

00241 

4644 


JMS 

I 

USR 


42 

00242 

0007 


7 



/TYPE 7 REQUEST 

43 

00243 

0002 


2 



/ERROR #2 

44 

00244 

7700 

USR* 

7700 



45 

00245 

7740 

M40, 

-40 




46 

00246 

3770 

MSTAT* 

-4010 



47 



$$$$$$$$$$$$$$$$$$$$$ 
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/INIT: SMART TAPE INITIATOR/ 


PAL8-V7 12/12/73 


PAGE 1-1 


ERROR 0248 
GOGO 0224 
GQWAIT 0225 
LOCO 0223 
LOWAIT 0212 
MSTAT 0246 
M40 0245 

OSS 0200 
USR 0244 
43 
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/UNLOAD: TR92 UNLOADING SEQUENC PAL8-V? 


I O .M O .0 7 
cl / lc./ » 


PAGE 1 


1 

2 

3 

4 

5 


8 

9 

IQ 

11 

12 

13 

14 

15 


00200 

00201 

00202 

00203 

00204 

00205 

00206 

0020 ? 



/UNLOAD: 

TR02 UNLOADING 

SEQUENCE/ 

6702 


ISR=6?02 


6703 


IWS=6?03 


6704 


IMC=6704 


6705 

FIXTAE 

IGS=6705 


7600 

OSS, 

7600 

/CLA, AND SYSTEM RETURN 

6702 


ISR 

/READ STATUS 

7700 


SMA CLA 

/IS IT READY? 

5600 


JMP I 0S8 

/NO, QUIT 

6704 


IMC 

.'START REWINDING 

6703 

UNWAI1, 

IMS 

/WAIT UNTIL DONE 

5205 


JMP UNWAIT 


5600 


JMP I 0S8 



$$$$$*$$$$$$$$$$$$$$$$$**$$$$$$$$$$$$$$$**$$ 
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/MTAMRK: TR02 TAPE MARKER/ 


PAL8-V? 12/12/73 PAGE 1 


/MTAMRK: TR02 TAPE MARKER/ 


2 


6703 


IWS 

= 6703 

3 


6704 


IMG 

= 6704 

4 


6705 


IGS 

= 6705 

5 


6706 


IRW 

= 6706 

6 



FIXTAB 



7 


0200 

*200 



8 

00200 

7600 

DISK, 

7600 

9 

00201 

6704 


IMC 


10 

00202 

6703 

REWF, 

IWS 


11 

00203 

5202 


JMP 

REWF 

12 

00204 

7230 


CLL 

CLA CML Rf 

13 

00205 

6704 


IMC 


14 

00206 

6705 

LFRF, 

IGS 


15 

00207 

5206 


JMP 

LFRF 

16 

00210 

7032 


CML 

RTR 

17 

00211 

6704 


IMC 


18 

00212 

6703 

WARF, 

IWS 


19 

00213 

5212 


JMP 

WARF 

20 

00214 

7300 


CLA 

CLL 

21 

00215 

1215 

GAP, 

TAD 

GAP 

22 

00216 

6704 


IMC 


22 

00217 

6703 

IRGF, 

IWS 


24 

00220 

5217 


JMP 

IRGF 

25 

00221 

7200 


CLA 


26 

00222 

1261 


TAD 

M1300 

27 

00223 

3265 


DCA 

BCNT 

28 

00224 

1262 


TAD 

M300 

29 

00225 

3264 


DCA 

ACNT 

30 

00226 

1263 


TAD 

BMRK 

31 

00227 

7041 


CIA 


32 

00230 

7012 


RTR; 

RTR;RTR 

33 

00231 

7012 




34 

00232 

7012 




35 

00233 

0267 


AND 

N77 

36 

00234 

6706 

WRITE1, 

IRW 


37 

00235 

6703 

IWRF, 

IWS 


38 

00236 

5235 


JMP 

I WRF 

29 

00237 

2265 


IS2 

BCNT 

'40 

0O240 

5234 


JMP 

WRITE1 

41 

00241 

7200 


CLA 

42 

00242 

1263 


TAD 

BMRK 

43 

00243 

7041 


CIA 


44 

00244 

0267 


AND 

N77 

45 

00245 

6706 

WRITE2, 

IRW 


46 

00246 

6703 

IWSF, 

IWS 


47 

00247 

5246 


JMP 

I WSF 

48 

00250 

2264 


I S3 

ACNT 

49 

00251 

5245 


JMP 

WRITE2 

50 

00252 

2263 


ISZ 

BMRK 

51 

00253 

7000 


NOP 


52 

00254 

7200 


CLA 


53 

00255 

2266 


ISZ 

LONG 

54 

00256 

5215 


JMP 

GAP 

55 

00257 

6704 


IMC 


/CLA 

/REWIND 


/ 4 0 0 0 

/LOAD FORWARD TO READ 


/3000 


/SET UP TO WRITE 


/WRITE IRG 


/REWIND 
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MTAMRK 

: TR02 

TAPE 

MARKER/ 

PAL8-V7 

12/12/73 

56 

00260 

5600 


JMP I DISK 

/RETURN 

57 

00261 

6500 

M1300, 

-1300 


58 

00262 

7500 

M 3 0 0, 

-308 


59 

00263 

7700 

BMRK, 

-100 


60 

00264 

0000 

ACNT, 

0 


61 

00265 

0000 

BCNT, 

0 


62 

00266 

3700 

LONG, 

-4100 


63 

00267 

0077 

N77, 

77 


64 



$$$$$$$$$$$$$$$$$$$$$$ 



/MTAMRK: TR02 TAPE MARKER/ PAL8-V7 12/12/73 

ACNT 8264 
BCNT 0265 
BMRK 0263 
DISK 0200 
GAP 0215 

IRGF 0217 
IWRF 0235 
I WSF 0246 
LFRF 0206 
LONG 0266 
H1300 0261 
M300 0262 

N77 0267 

REWF 0202 
WARF 0212 
WRITE1 0234 
NRITE2 0245 
65 


ACNT 

29 

48 

60# 

BCNT 

27 

39 

61# 

BMRK 

30 

42 

50 

DISK 

3# 

56 


GAP 

21# 

21# 

54 

IRGF 

23# 

24 


IWRF 

37# 

33 


I WSF 

46# 

47 


LFRF 

14# 

15 


LONG 

53 

62# 


M1300 

26 

57# 


M300 

28 

58# 


N77 

35 

44 

63# 

REWF 

10# 

11 


WARF 

18# 

19 


WRITE1 

36# 

40 


WRITE2 

45# 

49 



PAGE *1-1 


PAGE 1-2 
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